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Introduction 

In a remarkable development, I have constructed a new definition for a 
self-delimiting universal Turing machine (UTM) that is easy to program 
and runs very quickly. This provides a new foundation for algorithmic 
information theory (AIT), which is the theory of the size in bits of 
programs for self-delimiting UTM's. Previously, AIT had an abstract 
mathematical quality. Now it is possible to write down executable 
programs that embody the constructions in the proofs of theorems. So 
AIT goes from dealing with remote idealized mythical objects to being 
a theory about practical down-to-earth gadgets that one can actually 
play with and use. 

This new self-delimiting UTM is implemented via software written 
in a new version of LISP that I invented especially for this purpose. This 
LISP was designed by writing an interpreter for it in Mathematica that 
was then translated into C. I have tested this software by running it 
on IBM RS/6000 workstations with the AIX version of UNIX. 
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Using this new software and the latest theoretical ideas, it is now 
possible to give a self-contained "hands on" mini-course presenting 
very concretely my latest proofs of my two fundamental information- 
theoretic incompleteness theorems. The first of these theorems states 
that an iV-bit formal axiomatic system cannot enable one to exhibit 
any specific object with program-size complexity greater than N + c. 
The second of these theorems states that an AT-bit formal axiomatic 
system cannot enable one to determine more than N + c' scattered bits 
of the halting probability f2. 

Most people believe that anything that is true is true for a reason. 
These theorems show that some things are true for no reason at all, 
i.e., accidentally, or at random. 

As is shown in this course, the algorithms considered in the proofs 
of these two theorems are now easy to program and run, and by looking 
at the size in bits of these programs one can actually, for the first time, 
determine exact values for the constants c and d . 

I used this approach and software in an intensive short course on the 
limits of mathematics that I gave at the University of Maine in Orono in 
the summer of 1994. I also lectured on this material during a stay at the 
Santa Fe Institute in the spring of 1995, and at a meeting at the Black 
Sea University in Romania in the summer of 1995. A summary of the 
approach that I used on these three occasions will appear under the title 
"A new version of algorithmic information theory" in a forthcoming 
issue of the new magazine Complexity, which has just been launched 
by the Santa Fe Institute and John Wiley and Sons. A less technical 
discussion of the basic ideas that are involved "How to run algorithmic 
information theory on a computer" will also appear in Complexity. 

After presenting this material at these three different places, it be- 
came obvious to me that it is extremely difficult to understand it in its 
original form. So next time, at the Rovaniemi Institute of Technology 
in the spring of 1996, I am going to use the new, more understandable 
software in this report; everything has been redone in an attempt to 
make it as easy to understand as possible. 

For their stimulating invitations, I thank Prof. George Markowsky 
of the University of Maine, Prof. Cristian Calude of the University of 
Auckland, Prof. John Casti of the Santa Fe Institute, and Prof. Veikko 
Keranen of the Rovaniemi Institute of Technology. And I am grateful 
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to IBM for supporting my research for almost thirty years, and to my 
current management chain at the IBM Research Division, Dan Prener, 
Christos Georgiou, Eric Kronstadt, Jeff Jaffe, and Jim McGroddy. 

This report includes the LISP runs * . r used to present the 
information-theoretic incompleteness theorems of algorithmic informa- 
tion theory. This report does not include the software used to produce 
these LISP runs. To obtain the software for this course via e-mail, 
please send requests to chaitinOwatson.ibm.com. 

The New Idea 

Here is a quick summary of this new LISP, in which atoms can now 
either be words or unsigned decimal integers. First of all, comments 
are written like this: [comment] . Each LISP primitive function has 
a fixed number of arguments. ' is QUOTE, = is EQ, and atom, car, 
cdr, cadr, caddr, cons are provided with their usual meaning. We 
also have lambda, define, let, if and display and eval. The no- 
tation " indicates that an S-expression with explicit parentheses fol- 
lows, not what is usually the case in this LISP, an M-expression, in 
which the parentheses for each primitive function are implicit, nil 
denotes the empty list (), and the logical truth values are true 
and false. For dealing with unsigned decimal integers we have +, 
-, *, ~, <, >, <=, >=, baselO-to-2, base2-to-10. 

So far this is fairly standard. The new idea is this. We define 
our standard self-delimiting universal Turing machine as follows. Its 
program is in binary, and appears on a tape in the following form. First 
comes a LISP expression, written in ASCII with 8 bits per character, 
and terminated by an end-of-line character ' \n ' . The TM reads in 
this LISP expression, and then evaluates it. As it does this, two new 
primitive functions read-bit and read-exp with no arguments may be 
used to read more from the TM tape. Both of these functions explode 
if the tape is exhausted, killing the computation, read-bit reads a 
single bit from the tape, read-exp reads in an entire LISP expression, 
in 8-bit character chunks, until it reaches an end-of-line character ' \n ' . 

This is the only way that information on the TM tape may be 
accessed, which forces it to be used in a self-delimiting fashion. This 
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is because no algorithm can search for the end of the tape and then 
use the length of the tape as data in the computation. If an algorithm 
attempts to read a bit that is not on the tape, the algorithm aborts. 

How is information placed on the TM tape in the first place? Well, 
in the starting environment, the tape is empty and any attempt to read 
it will give an error message. To place information on the tape, one 
must use the primitive function try which tries to see if an expression 
can be evaluated. 

Consider the three arguments a, (3 and 7 of try. The meaning of 
the first argument is as follows. If a is no-time-limit, then there is 
no depth limit. Otherwise a must be an unsigned decimal integer, and 
gives the depth limit (limit on the nesting depth of function calls and 
re-evaluations). The second argument (3 of try is the expression to be 
evaluated as long as the depth limit a is not exceeded. And the third 
argument 7 of try is a list of bits to be used as the TM tape. 

The value v returned by the primitive function try is a triple. The 
first element of v is success if the evaluation of (3 was completed suc- 
cessfully, and the first element of v is failure if this was not the 
case. The second element of v is out-of-data if the evaluation of (3 
aborted because an attempt was made to read a non-existent bit from 
the TM tape. The second element of v is out-of-time if evaluation of 
(3 aborted because the depth limit a was exceeded. These are the only 
possible error flags, because this LISP is designed with maximally per- 
missive semantics. If the computation (3 terminated normally instead 
of aborting, the second element of v will be the result produced by the 
computation (3, i.e., its value. That's the second element of the list v 
produced by the try primitive function. 

The third element of the value v is a list of all the arguments to 
the primitive function display that were encountered during the eval- 
uation of (3. More precisely, if display was called N times during the 
evaluation of /?, then v will be a list of N elements. The N arguments 
of display appear in v in chronological order. Thus try can not only 
be used to determine if a computation (3 reads too much tape or goes 
on too long (i.e., to greater depth than a), but try can also be used to 
capture all the output that (3 displayed as it went along, whether the 
computation (3 aborted or not. 

In summary, all that one has to do to simulate a self-delimiting 



The Limits of Mathematics 



5 



universal Turing machine U (p) running on the binary program p is to 
write 

try no-time-limit 'eval read-exp p 

This is an M-expression with parentheses omitted from primitive func- 
tions. (Recall that all primitive functions have a fixed number of argu- 
ments.) With the parentheses supplied, it becomes the S-expression 

(try no-time-limit ( ' (eval (read-exp) ) ) p) 

This says that one is to read a complete LISP S-expression from the TM 
tape p and then evaluate it without any time limit and using whatever 
is left on the tape p. 

Some more primitive functions have also been added. The 2- 
argument function append denotes list concatenation, and the 1- 
argument function bits converts an S-expression into the list of the 
bits in its ASCII character string representation. These are used for 
constructing the bit strings that are then put on the TM tape using 
try's third argument 7. We also provide the 1-argument functions 
size and length that respectively give the number of characters in 
an S-expression, and the number of elements in a list. Note that the 
functions append, size and length could be programmed rather than 
included as built-in primitive functions, but it is extremely convenient 
and much much faster to provide them built in. 

Finally a new 1-argument identity function debug with the side- 
effect of outputting its argument is provided for debugging. Output 
produced by debug is invisible to the "official" display and try output 
mechanism, debug is needed because try a (3 7 suppresses all output 
9 produced within its depth-controlled evaluation of (3. Instead try 
collects all output from within (3 for inclusion in the final value v 
that try returns, namely v = (success/failure, value of j3, 9). 

Course Outline 

The course begins by explaining with examples my new LISP. See 
examples .r. 
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Then the theory of LISP program-size complexity is developed a 
little bit. LISP program-size complexity is extremely simple and con- 
crete. In particular, it is easy to show that it is impossible to prove 
that a self-contained LISP expression is elegant, i.e., that no smaller 
expression has the same value. To prove that an iV-character LISP 
expression is elegant requires a formal axiomatic system that itself has 
at least LISP complexity N — 410. See godel.r. 

Next we define our standard self-delimiting universal Turing ma- 
chine U(p) using 

cadr try no-time-limit J eval read-exp p 

as explained in the previous chapter. 
Next we show that 

H(x,y)<H(x) + H(y) + c 

with c = 432. Here H(- ■ ■) denotes the size in bits of the smallest pro- 
gram that makes our standard universal Turing machine compute 
Thus this inequality states that the information needed to compute the 
pair (x, y) is bounded by a constant c plus the sum of the informa- 
tion needed to compute x and the information needed to compute y. 
Consider 

cons eval read-exp 
cons eval read-exp 
nil 

This is an M-expression with parentheses omitted from primitive func- 
tions. With all the parentheses supplied, it becomes the S-expression 

(cons (eval (read-exp)) 
(cons (eval (read-exp)) 
nil)) 

c = 432 is just 8 bits plus 8 times the size in characters of this LISP 
S-expression. See utm.r. 

Consider a binary string x whose size is \x\ bits. In utm.r we also 
show that 

H(x) < 2\x\ +c 
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and 

H(x) < \x\ + H(\x\) +c' 

with c = 1106 and c! = 1024. As before, the programs for doing this 
are exhibited and run. 

Next we turn to the self-delimiting program-size complexity H(X) 
for infinite r.e. sets X. This is defined to be the size in bits of the small- 
est LISP expression £ that executes forever without halting and outputs 
the members of the r.e. set X using the LISP primitive display, which 
is an identity function with the side-effect of outputting the value of 
its argument. Note that this LISP expression £ is allowed to read 
additional bits or expressions from the TM tape using the primitive 
functions read-bit and read-exp if £ so desires. But of course £ is 
charged for this; this adds to £'s program size. 

It is in order to deal with such unending expressions £ that the LISP 
primitive function for time-limited evaluation try captures all output 
from display within its second argument (3. 

Now consider a formal axiomatic system A of complexity N, i.e., 
with a set of theorems Ta that considered as an r.e. set as above has 
self-delimiting program-size complexity H{Ta) = N. We show that A 
cannot enable us to exhibit a specific S-expression s with self-delimiting 
complexity H(s) greater than N + c. Here c = 4872. See godel2.r. 

Next we show two different ways to calculate the halting probability 
n of our standard self-delimiting universal Turing machine in the limit 
from below. See omega . r and omega2 . r. The first way of doing this, 
omega . r, is straight-forward. The second way to calculate Q, omega2 . r, 
uses a more clever method. Using the clever method as a subroutine, 
we show that if il N is the first N bits of the fractional part of the 
base- two real number Q, then 

H(Q N ) > N-c 

with c = 8000. Again this is done with a program that can actually be 
run and whose size gives us a value for c. See omega3 . r. 

Consider again the formal axiomatic system A with complexity N, 
i.e., with self-delimiting program-size complexity H(Ta) = N. Using 
the lower bound of N — c on H(Qpj) established in omega3 . r, we show 
that A cannot enable us to determine more than the first N + c' bits 
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of Q. Here d = 15328. In fact, we show that A cannot enable us to 
determine more than N + d bits of Q even if they are scattered and we 
leave gaps. See godel3 . r. 

Last but not least, the philosophical implications of all this should 
be discussed, especially the extent to which it tends to justify experi- 
mental mathematics. This would be along the lines of the discussion 
in my talk transcript "Randomness in arithmetic and the decline and 
fall of reductionism in pure mathematics." 

This concludes our "hands-on" mini-course on the information- 
theoretic limits of mathematics. 

Bibliography 

Here is a useful collection of hand-outs for this course: 

[1] G. J. Chaitin, "Randomness in arithmetic and the decline and fall 
of reductionism in pure mathematics," in J. Cornwell, Nature's 
Imagination, Oxford University Press, 1995, pp. 27-44. 

[2] G. J. Chaitin, "The Berry paradox," Complexity 1 (1995), pp. 
26-30. 

[3] G. J. Chaitin, "A new version of algorithmic information theory," 
Complexity, to appear. 

[4] G. J. Chaitin, "How to run algorithmic information theory on a 
computer," Complexity, to appear. 

examples, r 

LISP Interpreter Run 
[ Test new lisp ] 
> (ab c d) 

expression (' (ab c d)) 
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value (ab c d) 

' (ab cd ) 

expression (' (ab cd)) 
value (ab cd) 

car ' (aa bb cc) 

expression (car (' (aa bb cc))) 
value aa 

cdr ' (aa bb cc) 

expression (cdr (' (aa bb cc))) 
value (bb cc) 

cadr ' (aa bb cc) 

expression (car (cdr (' (aa bb cc)))) 
value bb 

caddr ' (aa bb cc) 

expression (car (cdr (cdr (' (aa bb cc))))) 
value cc 

cons ' (aa bb cc) ' (dd ee ff ) 

expression (cons (' (aa bb cc)) (' (dd ee ff))) 
value ((aa bb cc) dd ee ff) 

car aa 

expression (car aa) 
value aa 

cdr aa 
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expression (cdr aa) 

value aa 

cons aa bb 

expression (cons aa bb) 

value aa 

nil 

expression nil 

value () 

cons aa nil 

expression (cons aa nil) 

value (aa) 

("cons aa) 

expression (cons aa) 

value (aa) 

("cons '(aa) ' (bb) '(cc)) 

expression (cons (' (aa)) (' (bb)) (' (cc))) 

value ((aa) bb) 

let x a x 

expression ((' (lambda (x) x)) a) 

value a 



expression x 
value x 

atom ' aa 
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expression (atom (' aa)) 
value true 

atom ' (aa) 

expression (atom (' (aa))) 
value false 

if true x y 

expression (if true x y) 
value x 

if false x y 

expression (if false x y) 
value y 

if xxx x y 

expression (if xxx x y) 
value x 

let (f x) if atom display x x (f car x) 
(f '(((a)b)c)) 

expression ((' (lambda (f) (f (' (((a) b) c))))) (' (lambda ( 

x) (if (atom (display x) ) x (f (car x) ) ) ) ) ) 
display (((a) b) c) 

display ((a) b) 

display (a) 
display a 
value a 



f 



expression f 
value f 
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append ' (a b c) ' (d e f ) 

expression (append (' (a be)) (' (def))) 
value (a b c d e f) 

let (cat x y) if atom x y cons car x (cat cdr x y) 
(cat ' (a b c) '(def)) 

expression ((' (lambda (cat) (cat (' (a b c)) (' (def))))) 
(' (lambda (x y) (if (atom x) y (cons (car x) (cat 
(cdr x) y)))))) 
value (a b c d e f) 

cat 

expression cat 
value cat 

define (cat x y) if atom x y cons car x (cat cdr x y) 
define cat 

value (lambda (x y) (if (atom x) y (cons (car x) (cat (c 

dr x) y)))) 

cat 

expression cat 

value (lambda (x y) (if (atom x) y (cons (car x) (cat (c 

dr x) y)))) 

(cat ' (a b c) '(def)) 

expression (cat (' (a b c)) (' (def))) 
value (a b c d e f) 

define x (a b c) 



define 



x 
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value (a b c) 
cons x nil 

expression (cons x nil) 

value ( (a b c) ) 

define x (d e f) 

define x 
value (d e f) 

cons x nil 

expression (cons x nil) 
value ((d e f)) 

length display bits ' a 

expression (length (display (bits (' a)))) 
display (0 110000100001010) 

value 16 

length display bits ' abc 

expression (length (display (bits (' abc)))) 

display (0 110000101100010011000110 

1 1 0) 
value 32 

length display bits nil 

expression (length (display (bits nil))) 

display (0 01010000010100100001010) 

value 24 

length display bits ' (a) 



expression (length (display (bits (' (a))))) 
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display (0 010100001100001001010010 

1 1 0) 
value 32 

size abc 

expression (size abc) 
value 3 

size ' (abc) 

expression (size (' (abc))) 
value 7 

length ' (abc) 

expression (length (' (abc))) 
value 3 

+ abc 15 

expression (+ abc 15) 
value 15 

+ '(abc) 15 

expression (+ (' (abc)) 15) 
value 15 

+ 10 15 

expression (+ 10 15) 
value 25 

- 10 15 

expression (- 10 15) 
value 
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- 15 10 

expression 
value 

* 10 15 

expression 
value 

" 10 15 

expression 
value 

< 10 15 

expression 
value 

< 10 10 

expression 
value 

> 15 10 

expression 
value 

> 10 10 

expression 
value 

<= 15 10 

expression 
value 



(- 15 10) 
5 



O 10 15) 
150 



(~ 10 15) 
1000000000000000 



(< 10 15) 
true 



(< 10 10) 
false 



(> 15 10) 
true 



(> 10 10) 
false 



(<= 15 10) 
false 
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<= 10 10 

expression (<= 10 10) 

value true 

>= 10 15 

expression (>= 10 15) 

value false 

>= 10 10 

expression (>= 10 10) 

value true 

= 10 15 

expression (= 10 15) 

value false 

= 10 10 

expression (= 10 10) 

value true 

eval display '+ display 5 display 15 

expression (eval (display (' (+ (display 5) (display 15))))) 

display (+ (display 5) (display 15)) 

display 5 

display 15 

value 20 

try display '+ display 5 display 15 nil 

expression (try (display (' (+ (display 5) (display 15)))) 
nil) 

display (+ (display 5) (display 15)) 
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value (success 20 (5 15)) 

try display '+ debug 5 debug 15 nil 

expression (try (display (' (+ (debug 5) (debug 15)))) nil) 

display (+ (debug 5) (debug 15)) 

debug 5 

debug 15 

value (success 20 ()) 

define five! 

let (fx) if = x 1 * display x (f - x 1) 
(f 5) 

define five! 

value ((' (lambda (f) (f 5))) (' (lambda (x) (if (= x) 

1 (* (display x) (f (- x 1))))))) 

eval five! 

expression (eval five!) 

display 5 

display 4 

display 3 

display 2 

display 1 

value 120 

let (f x) if = x 1 * x (f - x 1) 
(f 100) 

expression ((' (lambda (f) (f 100))) (' (lambda (x) (if (= 

x) 1 (* x (f (- x 1))))))) 
value 93326215443944152681699238856266700490715968264381 

62146859296389521759999322991560894146397615651828 

62536979208272237582511852109168640000000000000000 

00000000 



try five! nil 
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expression (try five! nil) 

value (failure out-of-time ()) 

try 1 five! nil 

expression (try 1 five! nil) 

value (failure out-of-time ()) 

try 2 five! nil 

expression (try 2 five! nil) 

value (failure out-of-time (5)) 

try 3 five! nil 

expression (try 3 five! nil) 

value (failure out-of-time (5 4)) 

try 4 five! nil 

expression (try 4 five! nil) 

value (failure out-of-time (5 4 3)) 

try 5 five! nil 

expression (try 5 five! nil) 

value (failure out-of-time (5432)) 

try 6 five! nil 

expression (try 6 five! nil) 

value (failure out-of-time (5432 1)) 

try 7 five! nil 



expression (try 7 five! nil) 

value (success 120 (5432 1)) 
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try no-time-limit five! nil 

expression (try no-time-limit five! nil) 
value (success 120 (5432 1)) 

define two* 
let (fx) if = x nil 

cons * 2 display read-bit (f - x 1) 

(f 5) 
define two* 

value ((' (lambda (f) (f 5))) (' (lambda (x) (if (= x) 

nil (cons (* 2 (display (read-bit))) (f (- x 1))) 
)))) 

try 6 two* '(10101) 

expression (try 6 two* (' (10 10 1))) 
value (failure out-of-time (10 10 1)) 

try 7 two* '(10101) 

expression (try 7 two* (' (10 10 1))) 
value (success (20202) (10101)) 

try 7 two* '(10 1) 

expression (try 7 two* (' (10 1))) 
value (failure out-of-data (1 1)) 

try no-time-limit two* ' (1 1) 

expression (try no-time-limit two* (' (10 1))) 
value (failure out-of-data (1 1)) 

try 18 

'let (fx) if = x nil 

cons * 2 display read-bit (f - x 1) 

(f 16) 
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bits 'a 

expression (try 18 (' ((' (lambda (f) (f 16))) (' (lambda (x) 
(if (= x) nil (cons (* 2 (display (read-bit))) 

(f (- x 1)))))))) (bits (' a))) 
value (success (0 22000020000202 0) (Oil 

0000100001010)) 

baselO-to-2 128 

expression (baselO-to-2 128) 
value (10 0) 

baselO-to-2 256 

expression (baselO-to-2 256) 
value (10000000 0) 

baselO-to-2 257 

expression (baselO-to-2 257) 
value (10000000 1) 

base2-to-10 '(1111) 

expression (base2-to-10 (' (1 1 1 1))) 
value 15 

base2-to-10 '(10000) 

expression (base2-to-10 (' (10 0))) 
value 16 

base2-to-10 '(10001) 

expression (base2-to-10 (' (10 1))) 
value 17 



try 20 
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'cons abcdef try 10 

'let (f n) (f display + n 1) (f 0) [infinite loop] 
nil nil 

expression (try 20 (' (cons abcdef (try 10 (' ((' (lambda (f) 
(f 0))) (' (lambda (n) (f (display (+ n 1))))))) 
nil))) nil) 

value (success (abcdef failure out-of-time (12 3 4 5 6 

7 8 9)) ()) 

try 10 

' cons abcdef try 20 

'let (f n) (f display + n 1) (f 0) [infinite loop] 
nil nil 

expression (try 10 (' (cons abcdef (try 20 (' ((' (lambda (f) 
(f 0))) (' (lambda (n) (f (display (+ n 1))))))) 
nil))) nil) 
value (failure out-of-time ()) 

try no-time-limit 
' cons abcdef try 20 

'let (f n) (f display + n 1) (f 0) [infinite loop] 
nil nil 

expression (try no-time-limit (' (cons abcdef (try 20 (' ((' 
(lambda (f) (f 0))) (' (lambda (n) (f (display (+ 
n 1))))))) nil))) nil) 

value (success (abcdef failure out-of-time (12 3 4 5 6 

7 8 9 10 11 12 13 14 15 16 17 18 19)) ()) 

try 10 

'cons abcdef try no-time-limit 

'let (f n) (f display + n 1) (f 0) [infinite loop] 
nil nil 

expression (try 10 (' (cons abcdef (try no-time-limit (' ((' 
(lambda (f) (f 0))) (' (lambda (n) (f (display (+ 
n 1))))))) nil))) nil) 
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value (failure out-of-time ()) 
read-bit 

expression (read-bit) 

value out-of-data 

read-exp 

expression (read-exp) 
value out-of-data 

bits ' (abc def ) 

expression (bits (' (abc def))) 

value (0 010100001100001011000100 

1100011001000000110010001 
1001010110011000101001000 
10 10) 

try no-time-limit 'read-exp bits '(abc def) 

expression (try no-time-limit (' (read-exp)) (bits (' (abc de 
f)))) 

value (success (abc def) ()) 

bits 'abc 

expression (bits (' abc)) 

value (0 110000101100010011000110 

1 1 0) 

try 'read-bit nil 

expression (try (' (read-bit)) nil) 
value (failure out-of-data ()) 



try 'read-exp nil 
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expression (try (' (read-exp)) nil) 
value (failure out-of-data ()) 

try 'read-exp bits ' abc 

expression (try (' (read-exp)) (bits (' abc))) 
value (success abc ()) 

try 'cons read-exp cons read-bit nil bits 'abc 

expression (try (' (cons (read-exp) (cons (read-bit) nil))) 

(bits (' abc))) 
value (failure out-of-data ()) 

try 'cons read-exp cons read-bit nil append bits 'abc '(0) 

expression (try (' (cons (read-exp) (cons (read-bit) nil))) 

(append (bits (' abc)) (' (0)))) 
value (success (abc 0) ()) 

try 'cons read-exp cons read-bit nil append bits 'abc '(1) 

expression (try (' (cons (read-exp) (cons (read-bit) nil))) 

(append (bits (' abc)) (' (1)))) 
value (success (abc 1) ()) 

try 'read-exp bits '(a b) 

expression (try (' (read-exp)) (bits (' (a b) ) ) ) 
value (success (a b) ()) 

try 'cons read-exp cons read-bit nil bits '(a b) 

expression (try (' (cons (read-exp) (cons (read-bit) nil))) 

(bits (' (a b)))) 
value (failure out-of-data ()) 

try 'cons read-exp cons read-exp nil bits '(a b) 
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expression (try (' (cons (read-exp) (cons (read-exp) nil))) 

(bits (' (a b)))) 
value (failure out-of-data ()) 

try 'read-exp bits '(abc (def ghi)j) 

expression (try (' (read-exp)) (bits (' (abc (def ghi) j))) 
) 

value (success (abc (def ghi) j) ()) 

try 'read-exp '(1111) [character is incomplete] 

expression (try (' (read-exp)) (' (1111))) 
value (failure out-of-data ()) 

try 'read-exp 

'(00001010) [nothing in record; only \n] 

expression (try (' (read-exp)) (' (00001010))) 
value (success () ()) 

try ' cons read-exp cons read-exp nil 

append bits ' (a b c) bits '(def) 

expression (try (' (cons (read-exp) (cons (read-exp) nil))) 

(append (bits (' (abc))) (bits (' (def))))) 
value (success ((abc) (def)) ()) 

try 'read-exp '(1111 1111 

0000 1010) [invalid character] 

expression (try (' (read-exp)) (' (111111110000 

1 1 0))) 
value (success () ()) 

= 0003 3 



expression (= 3 3) 
value true 
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000099 

expression 99 
value 99 



expression x 

value (d e f) 

let x b x 

expression ((' (lambda (x) x)) b) 

value b 



expression x 
value (d e f) 

let 99 45 99 

expression ((' (lambda (99) 99)) 45) 
value 99 

End of LISP Run 

Elapsed time is 13 seconds. 



godel.r 

LISP Interpreter Run 



Show that a formal system of lisp complexity 
H_lisp (FAS) = N cannot enable us to exhibit 
an elegant S-expression of size greater than N + 410. 



26 



An elegant lisp expression is one with the property 
that no smaller S-expression has the same value. 
Setting: formal axiomatic system is never-ending 
lisp expression that displays elegant S-expressions . 

]]] 

[Here is the key expression.] 

define expression 

let (examine x) 

if atom x false 

if < n size car x car x 

(examine cdr x) 

let fas 'display " 10 430 [insert FAS here preceeded by '] 

let n + 410 size fas 

let t 

let (loop) 

let v try t fas nil 
let s (examine caddr v) 
if s eval s 

if = success car v failure 

let t + t 1 

(loop) 

(loop) 

define expression 

value ((' (lambda (examine) ((' (lambda (fas) ((' (lambd 

a (n) ((' (lambda (t) ((' (lambda (loop) (loop))) 
(' (lambda () ((' (lambda (v) ((' (lambda (s) (if 
s (eval s) (if (= success (car v)) failure ((' (la 
mbda (t) (loop))) (+ t 1)))))) (examine (car (cdr 
(cdr v))))))) (try t fas nil))))))) 0))) (+ 410 (s 
ize fas))))) (' (display (~ 10 430)))))) (' (lambd 
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a (x) (if (atom x) false (if (< n (size (car x))) 
(car x) (examine (cdr x) ) ) ) ) ) ) 

[Size expression.] 
size expression 

expression (size expression) 
value 430 

[Run expression & show that it knows its own size 
and can find something bigger than it is.] 
eval expression 

expression (eval expression) 

value 10000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000 
0000000000000000000000000000000 

[Here it fails to find anything bigger than it is.] 

let (examine x) 

if atom x false 

if < n size car x car x 

(examine cdr x) 

let fas 'display ~ 10 429 [insert FAS here preceeded by '] 

let n + 410 size fas 

let t 

let (loop) 

let v try t fas nil 
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let s (examine caddr v) 
if s eval s 

if = success car v failure 

let t + t 1 

(loop) 



(loop) 



expression ((' (lambda (examine) ((' (lambda (fas) ((' (lambd 
a (n) ((' (lambda (t) ((' (lambda (loop) (loop))) 
(' (lambda () ((' (lambda (v) ((' (lambda (s) (if 
s (eval s) (if (= success (car v)) failure ((' (la 
mbda (t) (loop))) (+ t 1)))))) (examine (car (cdr 
(cdr v))))))) (try t fas nil))))))) 0))) (+ 410 (s 
ize fas))))) (' (display (~ 10 429)))))) (' (lambd 
a (x) (if (atom x) false (if (< n (size (car x))) 
(car x) (examine (cdr x) ) ) ) ) ) ) 

value failure 



End of LISP Run 



Elapsed time is 2 seconds. 



utm.r 



LISP Interpreter Run 



[[[ 

First steps with my new construction for 
a self -delimiting universal Turing machine. 
We show that 

H(x,y) <= H(x) + H(y) + c 
and determine c . 

Consider a bit string x of length |x| . 
We also show that 

H(x) <= 2 | x | + c 
and that 

H(x) <= |x| + H(the binary string for |x|) + c 
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and determine both these c's. 
]]] 

[ 

Here is the self -delimiting universal Turing machine! 

] 

define (U p) cadr try no-time-limit 'eval read-exp p 
define U 

value (lambda (p) (car (cdr (try no-time-limit (' (eval 

(read-exp))) p) ) ) ) 

(U bits 'cons x cons y cons z nil) 

expression (U (bits (' (cons x (cons y (cons z nil)))))) 
value (x y z) 

(U append bits 'cons a debug read-exp 
bits '(bed) 

) 



expression (U (append (bits (' (cons a (debug (read-exp))))) 

(bits (' (bed))))) 
debug (b c d) 

value (a b c d) 



[ 

The length of alpha in bits is the 
constant c in H(x) <= 2|x| + 2 + c. 

] 

define alpha 

let (loop) let x read-bit 
let y read-bit 
if = x y 

cons x (loop) 
nil 

(loop) 



define 



alpha 
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value ((' (lambda (loop) (loop))) (' (lambda () ((' (lam 

bda (x) ((' (lambda (y) (if (= x y) (cons x (loop) 
) nil))) (read-bit)))) (read-bit))))) 

length bits alpha 

expression (length (bits alpha)) 
value 1104 

(U 

append 

bits alpha 

'(0011001101) 

) 

expression (U (append (bits alpha) (' (0 01100110 1))) 
) 

value (0 10 1) 

(U 

append 

bits alpha 

'(0011001100) 

) 

expression (U (append (bits alpha) (' (0 01100110 0))) 
) 

value out-of-data 
[ 

The length of beta in bits is the 
constant c in H(x,y) <= H(x) + H(y) + c. 

] 

define beta 
cons eval read-exp 
cons eval read-exp 
nil 

define beta 
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value (cons (eval (read-exp) ) (cons (eval (read-exp) ) ni 

D) 

length bits beta 

expression (length (bits beta)) 
value 432 

(U 

append 

bits beta 
append 

bits 'cons a cons b cons c nil 
bits 'cons x cons y cons z nil 

) 

expression (U (append (bits beta) (append (bits (' (cons a (c 
ons b (cons c nil))))) (bits (' (cons x (cons y (c 
ons z nil)))))))) 

value ((a b c) (x y z)) 

(U 

append 

bits beta 
append 

append bits alpha '(0011001101) 
append bits alpha '(1100110010) 



expression (U (append (bits beta) (append (append (bits alpha 
) (' (0 01100110 1))) (append (bits alpha) 
(' (110011001 0)))))) 

value ((0101) (1010)) 

[ 

The length of gamma in bits is the 
constant c in H(x) <= |x| + H(|x|) + c 

] 

define gamma 
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let (loop k) 
if = k nil 

cons read-bit (loop - k 1) 
(loop base2-to-10 eval read-exp) 

define gamma 

value ((' (lambda (loop) (loop (base2-to-10 (eval (read- 

exp)))))) (' (lambda (k) (if (= k) nil (cons (re 
ad-bit) (loop (- k 1))))))) 

length bits gamma 

expression (length (bits gamma)) 
value 1024 

(U 

append 

bits gamma 
append 

[Arbitrary program for U to compute number of bits] 

bits' '(10 0) 

[That many bits of data] 

'(0000 0001) 

) 

expression (U (append (bits gamma) (append (bits (' (' (10 

0)))) (' (0000000 1))))) 
value (00000001) 

End of LISP Run 

Elapsed time is 19 seconds. 

godel2.r 

LISP Interpreter Run 
[[[ 
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Show that a formal system of complexity N 
can't prove that a specific object has 
complexity > N + 4872. 

Formal system is a never halting lisp expression 
that output pairs (lisp object, lower bound 
on its complexity) . E.g. , (x 4) means 
that x has complexity H(x) greater than or equal to 
]]] 

[Here is the prefix.] 
define pi 

let (examine pairs) 

if atom pairs false 
if < n cadr car pairs 
car pairs 

(examine cdr pairs) 

let t 

let fas nil 

let (loop) 

let v try t ' eval read-exp fas 
let n + 4872 length fas 
let p (examine caddr v) 
if p car p 

if = car v success failure 
if = cadr v out-of-data 

let fas append fas cons read-bit nil 

(loop) 

if = cadr v out-of-time 

let t + t 1 

(loop) 
unexpected-condition 



(loop) 
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Pi 

((' (lambda (examine) ((' (lambda (t) ((' (lambda 
(fas) ((' (lambda (loop) (loop))) (' (lambda () (( 
' (lambda (v) ((' (lambda (n) ((' (lambda (p) (if 
p (car p) (if (= (car v) success) failure (if (= ( 
car (cdr v)) out-of-data) ((' (lambda (fas) (loop) 
)) (append fas (cons (read-bit) nil))) (if (= (car 
(cdr v)) out-of-time) ((' (lambda (t) (loop))) (+ 
t 1)) unexpected-condition)))))) (examine (car (c 
dr (cdr v) ) ) ) ) ) ) (+ 4872 (length fas))))) (try t ( 
' (eval (read-exp))) fas))))))) nil))) 0))) (' (la 
mbda (pairs) (if (atom pairs) false (if (< n (car 
(cdr (car pairs)))) (car pairs) (examine (cdr pair 
s))))))) 

[Size pi.] 
length bits pi 

expression (length (bits pi)) 
value 4872 

[Size pi + fas.] 
length 

append bits pi 

bits 'display ' (xyz 9999) 

expression (length (append (bits pi) (bits (' (display (' (xy 

z 9999))))))) 
value 5072 

[Here pi finds something suitable.] 

cadr try no-time-limit 'eval read-exp 
append bits pi 

bits 'display '(xyz 5073) 



define 
value 



expression (car (cdr (try no-time-limit (' (eval (read-exp))) 
(append (bits pi) (bits (' (display (' (xyz 5073) 
)))))))) 



The Limits of Mathematics 



35 



value xyz 

[Here pi doesn't find anything suitable.] 

cadr try no-time-limit ' eval read-exp 
append bits pi 

bits 'display '(xyz 5072) 

expression (car (cdr (try no-time-limit (' (eval (read-exp))) 
(append (bits pi) (bits (' (display (' (xyz 5072) 
)))))))) 
value failure 



End of LISP Run 



Elapsed time is 153 seconds. 



omega.r 

LISP Interpreter Run 

[[[[ Omega in the limit from below! ]]]] 

define (all-bit-strings-of -size k) 
if = Ok '(()) 

(extend-by-one-bit (all-bit-strings-of-size - k 1)) 
define all-bit-strings-of-size 

value (lambda (k) (if (= k) (' (())) (extend-by-one-bi 

t (all-bit-strings-of-size (- k 1))))) 

define (extend-by-one-bit x) 
if atom x nil 
cons append car x ' (0) 
cons append car x ' (1) 
(extend-by-one-bit cdr x) 



define extend-by-one-bit 
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value (lambda (x) (if (atom x) nil (cons (append (car x) 

(' (0))) (cons (append (car x) (' (1))) (extend-b 
y-one-bit (cdr x)))))) 

define (count-halt p) 
if atom p 
+ 

if = success car try t 'eval read-exp car p 
1 

(count-halt cdr p) 
define count -halt 

value (lambda (p) (if (atom p) (+ (if (= success (car 

(try t (' (eval (read-exp))) (car p) ) ) ) 1 0) (coun 
t-halt (cdr p) ) ) ) ) 

define (omega t) cons (count-halt (all-bit-strings-of-size t)) 
cons / 
cons " 2 t 
nil 

define omega 

value (lambda (t) (cons (count-halt (all-bit-strings-of- 

size t)) (cons / (cons (" 2 t) nil)))) 

(omega 0) 

expression (omega 0) 
value (0 / 1) 

(omega 1) 

expression (omega 1) 
value (0 / 2) 



(omega 2) 



expression 
value 



(omega 2) 
(0 / 4) 
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(omega 3) 



expression 
value 



(omega 3) 
(0 / 8) 



(omega 8) 



expression 
value 



(omega 8) 
(1 / 256) 



End of LISP Run 

Elapsed time is 38 seconds. 

omega2.r 

LISP Interpreter Run 

[[[[ Omega in the limit from below! ]]]] 

define (count-halt prefix bits-lef t-to-extend) 
if = bits-lef t-to-extend 

if = success car try t 'eval read-exp prefix 
1 

+ (count -halt append prefix '(0) - bits-lef t-to-extend 1) 
(count -halt append prefix '(1) - bits-lef t-to-extend 1) 

define count -halt 

value (lambda (prefix bits-lef t-to-extend) (if (= bits-1 



ef t-to-extend 0) (if (= success (car (try t (' (ev 
al (read-exp))) prefix))) 1 0) (+ (count -halt (app 
end prefix (' (0))) (- bits-lef t-to-extend 1)) (co 
unt-halt (append prefix (' (1))) (- bits-lef t-to-e 
xtend 1))))) 



define (omega t) cons (count-halt nil t) 
cons / 
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cons " 2 t 
nil 



define omega 

value (lambda (t) (cons (count-halt nil t) (cons / (cons 
(- 2 t) nil)))) 

(omega 0) 

expression (omega 0) 

value (0 / 1) 

(omega 1) 

expression (omega 1) 

value (0 / 2) 

(omega 2) 

expression (omega 2) 

value (0 / 4) 

(omega 3) 

expression (omega 3) 

value (0 / 8) 

(omega 8) 

expression (omega 8) 

value (1 / 256) 

End of LISP Run 



Elapsed time is 33 seconds. 
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omega3.r 

LISP Interpreter Run 
[[[ 

Show that 

H(0mega_n) > n - 8000. 
Dmega_n is the first n bits of Omega, 
where we choose 

Omega = xxxOllllll . . . 
instead of 

Omega = xxxlOOOOOO. . . 
if necessary. 
]]] 

[Here is the prefix.] 
define pi 

let (count-halt prefix bits-lef t-to-extend) 
if = bits-lef t-to-extend 

if = success car try t 'eval read-exp prefix 
1 

+ (count -halt append prefix ' (0) - bits-lef t-to-extend 1) 
(count -halt append prefix '(1) - bits-lef t-to-extend 1) 

let (omega t) cons (count -halt nil t) 
cons / 
cons * 2 t 
nil 

let w eval read-exp 

let n length w 

let w cons base2-to-10 w 
cons / 
cons 2 n 
nil 
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let (loop t) 

if (<=rat w (omega t)) 
(big nil n) 
(loop + t 1) 

let (<=rat x y) 

<= * car x caddr y * caddr x car y 

let (big prefix bits-lef t-to-add) 
if = bits-left-to-add 
cons cadr try t 'eval read-exp prefix 
nil 

append (big append prefix '(0) - bits-left-to-add 1) 
(big append prefix '(1) - bits-left-to-add 1) 



(loop 0) 



define pi 

value ((' (lambda (count -halt) ((' (lambda (omega) ((' ( 

lambda (w) ((' (lambda (n) ((' (lambda (w) ((' (la 
mbda (loop) ((' (lambda (<=rat) ((' (lambda (big) 
(loop 0))) (' (lambda (prefix bits-left-to-add) (i 
f (= bits-left-to-add) (cons (car (cdr (try t (' 

(eval (read-exp))) prefix))) nil) (append (big (a 
ppend prefix (' (0))) (- bits-left-to-add 1)) (big 

(append prefix (' (1))) (- bits-left-to-add 1)))) 
))))) (' (lambda (x y) (<= (* (car x) (car (cdr (c 
dr y)))) (* (car (cdr (cdr x) ) ) (car y) )))))) ) 
(lambda (t) (if (<=rat w (omega t)) (big nil n) (1 
oop (+ t 1)))))))) (cons (base2-to-10 w) (cons / ( 
cons (" 2 n) nil)))))) (length w)))) (eval (read-e 
xp) ) ) ) ) (' (lambda (t) (cons (count -halt nil t) (c 
ons / (cons (~ 2 t) nil)))))))) (' (lambda (prefix 

bits-lef t-to-extend) (if (= bits-lef t-to-extend 
) (if (= success (car (try t (' (eval (read-exp))) 

prefix))) 1 0) (+ (count-halt (append prefix (' ( 
0))) (- bits-lef t-to-extend 1)) (count-halt (appen 
d prefix (' (1))) (- bits-lef t-to-extend 1))))))) 
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[Run pi . ] 

cadr try no-time-limit J eval read-exp 
append bits pi 
bits ' 

[Program to compute first n = 8 bits of Omega] 
'(0000 0001) 



expression (car (cdr (try no-time-limit (' (eval (read-exp))) 
(append (bits pi) (bits (' (' (00000001))) 
))))) 

value (out-of-data out-of-data out-of-data out-of-data o 

ut-of-data out-of-data out-of-data out-of-data out 
-of -data out-of-data () out-of-data out-of-data ou 
t-of-data out-of-data out-of-data out-of-data out- 
of-data out-of-data out-of-data out-of-data out-of 
-data out-of-data out-of-data out-of-data out-of -d 
ata out-of-data out-of-data out-of-data out-of -dat 
a out-of-data out-of-data out-of-data out-of-data 
out-of-data out-of-data out-of-data out-of-data ou 
t-of-data out-of-data out-of-data out-of-data out- 
of-data out-of-data out-of-data out-of-data out-of 
-data out-of-data out-of-data out-of-data out-of -d 
ata out-of-data out-of-data out-of-data out-of -dat 
a out-of-data out-of-data out-of-data out-of-data 
out-of-data out-of-data out-of-data out-of-data ou 
t-of-data out-of-data out-of-data out-of-data out- 
of-data out-of-data out-of-data out-of-data out-of 
-data out-of-data out-of-data out-of-data out-of -d 
ata out-of-data out-of-data out-of-data out-of -dat 
a out-of-data out-of-data out-of-data out-of-data 
out-of-data out-of-data out-of-data out-of-data ou 
t-of-data out-of-data out-of-data out-of-data out- 
of-data out-of-data out-of-data out-of-data out-of 
-data out-of-data out-of-data out-of-data out-of -d 
ata out-of-data out-of-data out-of-data out-of -dat 
a out-of-data out-of-data out-of-data out-of-data 
out-of-data out-of-data out-of-data out-of-data ou 
t-of-data out-of-data out-of-data out-of-data out- 
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of -data out-of-data out-of-data out-of-data out-of 
-data out-of-data out-of-data out-of-data out-of -d 
ata out-of-data out-of-data out-of-data out-of -dat 
a out-of-data out-of-data out-of-data out-of-data 
out-of-data out-of-data out-of-data out-of-data ou 
t-of-data out-of-data out-of-data out-of-data out- 
of-data out-of-data out-of-data out-of-data out-of 
-data out-of-data out-of-data out-of-data out-of -d 
ata out-of-data out-of-data out-of-data out-of -dat 
a out-of-data out-of-data out-of-data out-of-data 
out-of-data out-of-data out-of-data out-of-data ou 
t-of-data out-of-data out-of-data out-of-data out- 
of-data out-of-data out-of-data out-of-data out-of 
-data out-of-data out-of-data out-of-data out-of -d 
ata out-of-data out-of-data out-of-data out-of -dat 
a out-of-data out-of-data out-of-data out-of-data 
out-of-data out-of-data out-of-data out-of-data ou 
t-of-data out-of-data out-of-data out-of-data out- 
of-data out-of-data out-of-data out-of-data out-of 
-data out-of-data out-of-data out-of-data out-of -d 
ata out-of-data out-of-data out-of-data out-of -dat 
a out-of-data out-of-data out-of-data out-of-data 
out-of-data out-of-data out-of-data out-of-data ou 
t-of-data out-of-data out-of-data out-of-data out- 
of-data out-of-data out-of-data out-of-data out-of 
-data out-of-data out-of-data out-of-data out-of -d 
ata out-of-data out-of-data out-of-data out-of -dat 
a out-of-data out-of-data out-of-data out-of-data 
out-of-data out-of-data out-of-data out-of-data ou 
t-of-data out-of-data out-of-data out-of-data out- 
of-data out-of-data out-of-data out-of-data out-of 
-data out-of-data out-of-data out-of-data out-of -d 
ata out-of-data out-of-data out-of-data out-of -dat 
a out-of-data) 



[Size pi.] 
length bits pi 



expression (length (bits pi)) 
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value 8000 

End of LISP Run 

Elapsed time is 148 seconds. 



godel3.r 

LISP Interpreter Run 



[[[ 

Show that a formal system of complexity N 
can't determine more than N + 8000 + 7328 
= N + 15328 bits of Omega. 

Formal system is a never halting lisp expression 
that outputs lists of the form (10X0XXXX10). 
This stands for the fractional part of Omega, 
and means that these 0,1 bits of Omega are known. 
X stands for an unknown bit. 
]]] 



[Here is the prefix.] 



define pi 



let (number-of -bits-determined w) 
if atom w 

+ (number-of-bits-determined cdr w) 
if = X car w 

1 



let (supply-missing-bits w) 
if atom w nil 
cons if = X car w 

read-bit 

car w 

(supply-missing-bits cdr w) 
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let (examine w) 

if atom w false 

[if < n (number— of -bits-determined car w)] 
[ Change n to 1 here so will succeed. ] 
if < 1 (number-of -bits-determined car w) 
car w 

(examine cdr w) 

let t 

let fas nil 

let (loop) 

let v try t ' eval read-exp fas 
let n + 8000 + 7328 length fas 
let w (examine caddr v) 
if w (supply-missing-bits w) 
if = car v success failure 
if = cadr v out-of-data 

let fas append fas cons read-bit nil 
(loop) 

if = cadr v out-of-time 

let t + t 1 

(loop) 
unexpected-condition 

(loop) 

define pi 

value ((' (lambda (number-of -bits-determined) ((' (lambd 

a (supply-missing-bits) ((' (lambda (examine) ((' 
(lambda (t) ((' (lambda (fas) ((' (lambda (loop) ( 
loop))) (' (lambda () ((' (lambda (v) ((> (lambda 
(n) ((' (lambda (w) (if w (supply-missing-bits w) 
(if (= (car v) success) failure (if (= (car (cdr v 
)) out-of-data) ((' (lambda (fas) (loop))) (append 

fas (cons (read-bit) nil))) (if (= (car (cdr v)) 
out-of-time) ((' (lambda (t) (loop))) (+ t 1)) une 
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xpected-condition) ) ) ) ) ) (examine (car (cdr (cdr v) 
)))))) (+ 8000 (+ 7328 (length fas)))))) (try t (' 

(eval (read-exp))) fas))))))) nil))) 0))) (' (lam 
bda (w) (if (atom w) false (if (< 1 (number-of-bit 
s-determined (car w))) (car w) (examine (cdr w)))) 
))))) (' (lambda (w) (if (atom w) nil (cons (if (= 

X (car w)) (read-bit) (car w) ) (supply-missing-bi 
ts (cdr w))))))))) (' (lambda (w) (if (atom w) ( 
+ (number-of -bits-determined (cdr w) ) (if (= X (ca 
r w)) 1)))))) 

[Size pi.] 
length bits pi 

expression (length (bits pi)) 
value 7328 

[Run pi.] 

cadr try no-time-limit 'eval read-exp 
append bits pi 

append [Toy formal system with only one theorem.] 
bits 'display '(1X0) 
[Missing bit of omega that is needed.] 
'(1) 

expression (car (cdr (try no-time-limit (' (eval (read-exp))) 
(append (bits pi) (append (bits (' (display (' (1 
X 0))))) (' (1))))))) 

value (110) 

End of LISP Run 

Elapsed time is 94 seconds. 



